home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
pd
/
anti-virus
/
xtruder
/
rexx
/
examples
/
xtruder_checkfiles.rexx
next >
Wrap
OS/2 REXX Batch file
|
1985-03-24
|
456b
|
28 lines
/*
** 'CheckFiles' example
*/
Options Results
Address XTRUDER
CheckFiles 'C:Dir' 'C:List'
IF RC < 0 THEN
Say 'Error 'RC' occured!'
ELSE IF RC = 0 THEN
Say 'No vira found in checked files'
ELSE IF RC > 0 THEN
DO
Say 'Number of vira found: ' RC
Say ''
DO x=1 to RC
GetVirusName x
Say 'Virus name: ' result''
GetVirusFileName x
Say 'Virus file name:
' result'
'
Say ''
END
END